My meme

This is my meme, this meme aims to inspire everyone to work with some funny pictures!

h2{background: linear-gradient(to left,#e66465, #9198e5);
-webkit-text-fill-color: transparent;
-webkit-background-clip: text;
font-family:Georgia, serif;}

P {font-style: italic;}
p{color: rgb(135, 93, 241);}


body{background-color: #CCD7DB}

library(magick)
n1 <- image_read("https://i0.wp.com/winkgo.com/wp-content/uploads/2018/10/21-Back-To-Work-Memes-02.jpg?resize=720%2C720&ssl=1")
n2 <- image_read("https://www.rd.com/wp-content/uploads/2021/07/Me-when-I-think-about-going-to-work-in-the-morning.jpg?resize=700,700")
new_text <- image_blank(width = 600, height = 600, #size
                   color = "#000000") %>% 
  image_annotate(text = "please go to work", 
                 color = "#FFFFFF",
                 size = 60,
                 font = "Serif",
                 gravity = "center")
top_row <- image_append(c(new_text,n1))

new_text2 <- image_blank(width = 600, height = 600, #size
                         color = "#000000") %>% #filling color
  image_annotate(text = "off work",  #text content
                 color = "#FFFFFF", #text color
                 size = 60, 
                 font = "Impact", #text font
                 gravity = "center") #text location
bottom_row <- image_append(c(new_text2, n2))

work_meme <- c(top_row, bottom_row) %>% #total meme
image_append(stack = TRUE) %>%
image_scale(800)

image_write(work_meme, "my_meme.png") #save the meme

library(magick)
n1 <- image_read("https://i0.wp.com/winkgo.com/wp-content/uploads/2018/10/21-Back-To-Work-Memes-02.jpg?resize=720%2C720&ssl=1")
n2 <- image_read("https://www.rd.com/wp-content/uploads/2021/07/Me-when-I-think-about-going-to-work-in-the-morning.jpg?resize=700,700")
new_text <- image_blank(width = 600, height = 600, #size
                        color = "#000000") %>% 
  image_annotate(text = "please go to work", 
                 color = "#FFFFFF",
                 size = 60,
                 font = "Serif",
                 gravity = "center")
top_row <- image_append(c(new_text,n1))

new_text2 <- image_blank(width = 600, height = 600, #size
                         color = "#000000") %>% #filling color
  image_annotate(text = "off work",  #text content
                 color = "#FFFFFF", #text color
                 size = 60, 
                 font = "Impact", #text font
                 gravity = "center") #text location
bottom_row <- image_append(c(new_text2, n2))

work_meme <- c(top_row, bottom_row) %>% #total meme
  image_append(stack = TRUE) %>%
  image_scale(800)

image_write(work_meme, "my_meme.png") #save the meme

My animated GIF

This is my animated GIF, this animated GIF using image_morph() and image_animate() functions is used to dynamically create four gifs and automate image gradients.We can see that these pngs scroll at a very fast rate in gif.

h2{background: linear-gradient(to left,#e66465, #9198e5);
-webkit-text-fill-color: transparent;
-webkit-background-clip: text;
font-family:Georgia, serif;}

P {font-style: italic;}
p{color: rgb(135, 93, 241);}


body{background-color: #CCD7DB}

library(magick)
new_text <- image_blank(width = 600, height = 600, #size
                        color = "#000000") %>% #filling color
  image_annotate(text = "go to work", 
                 color = "#FFFFFF",
                 size = 60,
                 font = "Serif",
                 gravity = "center")
top_row <- image_append(c(new_text,n1))

new_text2 <- image_blank(width = 600, height = 600, #size
                         color = "#000000") %>% #filling color
  image_annotate(text = "off work", 
                 color = "#FFFFFF",
                 size = 60,
                 font = "Impact",
                 gravity = "center")
bottom_row <- image_append(c(new_text2, n2))

frame <- c(new_text,n1,new_text2, n2) #combine all the frames


gif_1 <- image_animate(frame, fps = 1) #make a gif 

gif_2 <-image_morph(frame) %>%  #make a gradient gif
  image_animate(fps = 100)

animation <- c(gif_1, gif_2)

image_write(animation, "my_animation.gif")
library(magick)
n1 <- image_read("https://i0.wp.com/winkgo.com/wp-content/uploads/2018/10/21-Back-To-Work-Memes-02.jpg?resize=720%2C720&ssl=1")
n2 <- image_read("https://www.rd.com/wp-content/uploads/2021/07/Me-when-I-think-about-going-to-work-in-the-morning.jpg?resize=700,700")
new_text <- image_blank(width = 600, height = 600, #size
                        color = "#000000") %>% 
  image_annotate(text = "please go to work", 
                 color = "#FFFFFF",
                 size = 60,
                 font = "Serif",
                 gravity = "center")
top_row <- image_append(c(new_text,n1))

new_text2 <- image_blank(width = 600, height = 600, #size
                         color = "#000000") %>% #filling color
  image_annotate(text = "off work",  #text content
                 color = "#FFFFFF", #text color
                 size = 60, 
                 font = "Impact", #text font
                 gravity = "center") #text location
bottom_row <- image_append(c(new_text2, n2))

work_meme <- c(top_row, bottom_row) %>% #total meme
  image_append(stack = TRUE) %>%
  image_scale(800)

image_write(work_meme, "my_meme.png") #save the meme